﻿
Imports System.Configuration

Public Class frmLoaiNha
    Public SoLoaiNha As Integer = 9
    Private da As DataTable

    Private Sub TrangChủToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrangChủToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub frmLoaiNha_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        da = LoaiNhaThueBUS.GetAllLoaiNhaThueBUS()
        dgvLoaiNha.DataSource = da
        SoLoaiNha = Integer.Parse(AppSettingsWriter.GetValue("SoLoaiNha"))
    End Sub

    Private Sub btnThem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThem.Click
        If (da.Rows.Count >= SoLoaiNha) Then
            MessageBox.Show("Số loại đã đủ bạn không thể thêm")
        Else
            Dim t As LoaiNhaThueDTO = New LoaiNhaThueDTO()
            Try

                t.TenLoaiNha = txtTenLoaiNha.Text
                LoaiNhaThueBUS.InsertLoaiNhaThueBUS(t)
                da = LoaiNhaThueBUS.GetAllLoaiNhaThueBUS()
                dgvLoaiNha.DataSource = da
            Catch ex As Exception
                MessageBox.Show("Kết nối bị lỗi bạn vui lòng kiểm tra lại cơ sở dữ liệu và server")
            End Try
        End If

    End Sub

    Private Sub btnXoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnXoa.Click
        If (dgvLoaiNha.SelectedRows.Count > 0) Then

            For i As Integer = 0 To (dgvLoaiNha.SelectedRows.Count - 1)
                Try

                    LoaiNhaThueBUS.DeleteLoaiNhaThueBUS(Integer.Parse(dgvLoaiNha.SelectedRows(i).Cells(0).Value.ToString()))

                Catch ex As Exception
                    MessageBox.Show("Tình trạng đang được tham chiếu tới")
                End Try
            Next
            da = LoaiNhaThueBUS.GetAllLoaiNhaThueBUS()
            dgvLoaiNha.DataSource = da

        End If
    End Sub

    Private Sub btnSua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSua.Click

        Dim t As LoaiNhaThueDTO = New LoaiNhaThueDTO()
        Try
            t.MaLoaiNha = Integer.Parse(txtMaLoaiNha.Text)
            t.TenLoaiNha = txtTenLoaiNha.Text
            LoaiNhaThueBUS.UpdateLoaiNhaThueBUS(t)
            dgvLoaiNha.DataSource = LoaiNhaThueBUS.GetAllLoaiNhaThueBUS()
        Catch ex As Exception
            MessageBox.Show("Kết nối bị lỗi bạn vui lòng kiểm tra lại cơ sở dữ liệu và server")
        End Try


    End Sub

    Private Sub dgvLoaiNha_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dgvLoaiNha.SelectionChanged
        If (dgvLoaiNha.SelectedRows.Count > 0 And dgvLoaiNha.SelectedRows.Count < 2) Then

            txtMaLoaiNha.Text = dgvLoaiNha.SelectedRows(0).Cells(0).Value.ToString()
            txtTenLoaiNha.Text = dgvLoaiNha.SelectedRows(0).Cells(1).Value.ToString()

        End If
    End Sub
End Class